home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / pdrd2.zip / RD.ZIP / RD_DEMO7.PRG < prev    next >
Text File  |  1993-01-11  |  1KB  |  44 lines
  1. /*
  2.     RD_DEMO7.PRG
  3.  
  4.     This demonstrates the use of:
  5.     ADr_expattr()
  6. */
  7.  
  8. #include "read.ch"
  9.  
  10. //---------
  11. func main()
  12. local getlist[0]
  13. local cShort := "Short string"
  14. local cLong := "This is a very long string.  Press 'Tab' to expand it into a memoedit."
  15. local nT := 10, nL := 10, nB := 13, nR := 50
  16. local cColor := setcolor( if( iscolor(), "W+/BG, GR+/R,,, N/R", nil ) )
  17. local aScn, aScn2
  18. local bConfig := {|e| ADr_expattr( e,;
  19.                                    {0,0,4,31},;
  20.                                    if( iscolor(), "W+/B", "W+/N" ),;
  21.                                    "┌─┐│┘─└│ ",;
  22.                                    "Esc:Exit    Tab:Sauv    F1:Aide";
  23.                                  );
  24.                  }
  25.  
  26. cls
  27. aScn = ADbox( nT, nL, nB, nR )
  28. aScn2 = ADmessage( { "This changes the default attributes of the expanded Get" },;
  29.                    22,, .f., .f. )
  30. @nT+1, nL+2 say "Short String" adget cShort
  31. @nT+2, nL+2 say "Long String " adget cLong picture "@S24"
  32. ADread( getlist, bConfig )
  33. ADrestscn( aScn2 )
  34. ADrestscn( aScn )
  35. setcolor( cColor )
  36. return nil
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.